﻿' ----------------------------------------------------------------------------------
' Microsoft Developer & Platform Evangelism
' 
' Copyright (c) Microsoft Corporation. All rights reserved.
' 
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, 
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ----------------------------------------------------------------------------------
' The example companies, organizations, products, domain names,
' e-mail addresses, logos, people, places, and events depicted
' herein are fictitious.  No association with any real company,
' organization, product, domain name, email address, logo, person,
' places, or events is intended or should be inferred.
' ----------------------------------------------------------------------------------

Namespace ViewModel
    Public Class MainPageViewModel
        Inherits BaseViewModel

        Private listBlobsPageViewModelValue As ListBlobsPageViewModel
        Private sampleDataTablePageViewModelValue As SampleDataTablePageViewModel
        Private tablesPageViewModelValue As TablesPageViewModel
        Private notificationsPageViewModelValue As NotificationsPageViewModel
        Private listQueuesPageViewModelValue As ListQueuesPageViewModel
        Private sqlSampleDataPageViewModelValue As SqlSampleDataPageViewModel

        Public Property ListBlobsPageViewModel() As ListBlobsPageViewModel
            Get
                If Me.listBlobsPageViewModelValue Is Nothing Then
                    Me.listBlobsPageViewModelValue = New ListBlobsPageViewModel()
                End If

                Return Me.listBlobsPageViewModelValue
            End Get

            Set(ByVal value As ListBlobsPageViewModel)
                Me.listBlobsPageViewModelValue = value
            End Set
        End Property

        Public Property SampleDataTablePageViewModel() As SampleDataTablePageViewModel
            Get
                If Me.sampleDataTablePageViewModelValue Is Nothing Then
                    Me.sampleDataTablePageViewModelValue = New SampleDataTablePageViewModel()
                End If

                Return Me.sampleDataTablePageViewModelValue
            End Get

            Set(ByVal value As SampleDataTablePageViewModel)
                Me.sampleDataTablePageViewModelValue = value
            End Set
        End Property

        Public Property TablesPageViewModel() As TablesPageViewModel
            Get
                If Me.tablesPageViewModelValue Is Nothing Then
                    Me.tablesPageViewModelValue = New TablesPageViewModel()
                End If

                Return Me.tablesPageViewModelValue
            End Get

            Set(ByVal value As TablesPageViewModel)
                Me.tablesPageViewModelValue = value
            End Set
        End Property

        Public Property NotificationsViewModel() As NotificationsPageViewModel
            Get
                If Me.notificationsPageViewModelValue Is Nothing Then
                    Me.notificationsPageViewModelValue = New NotificationsPageViewModel()
                End If

                Return Me.notificationsPageViewModelValue
            End Get

            Set(ByVal value As NotificationsPageViewModel)
                Me.notificationsPageViewModelValue = value
            End Set
        End Property

        Public Property ListQueuesPageViewModel() As ListQueuesPageViewModel
            Get
                If Me.listQueuesPageViewModelValue Is Nothing Then
                    Me.listQueuesPageViewModelValue = New ListQueuesPageViewModel()
                End If

                Return Me.listQueuesPageViewModelValue
            End Get

            Set(ByVal value As ListQueuesPageViewModel)
                Me.listQueuesPageViewModelValue = value
            End Set
        End Property

        Public Property SqlSampleDataPageViewModel() As SqlSampleDataPageViewModel
            Get
                If Me.sqlSampleDataPageViewModelValue Is Nothing Then
                    Me.sqlSampleDataPageViewModelValue = New SqlSampleDataPageViewModel()
                End If

                Return Me.sqlSampleDataPageViewModelValue
            End Get

            Set(ByVal value As SqlSampleDataPageViewModel)
                Me.sqlSampleDataPageViewModelValue = value
            End Set
        End Property
    End Class
End Namespace